home *** CD-ROM | disk | FTP | other *** search
/ Soil Vegetation Inventory Method / Soil Vegetation Inventory Method SVIM Source Code and Data - 1991.iso / doc / svim_jcl.doc < prev    next >
Encoding:
Text File  |  1991-08-01  |  34.6 KB  |  1,179 lines
  1. SVIM-JCL.DOC
  2. 00000-------------------------------------------------------------------
  3. 00010         THE FOLLOWING JOB CONTROL LANGUAGE (JCLS) WERE THE MOST
  4. 00020             BASIC RUN SEQUENCES USED IN THE NORMAL PROCESSING
  5. 00030             OF THE SOIL VEGETATION INVENTORY METHOD (SVIM).
  6. 00040             FILES/PROGRAMS PREFIXED BY ES (ECOLOGICAL SITE) IS
  7. 00050             SYNONYMOUS WITH THE SV (SVIM) SYSTEM CODE.
  8. 00060
  9. 00070-------------------------------------------------------------------
  10. 00080-------------------------------------------------------------------
  11. 00090$$S,T
  12. 00100$:IDENT:CHRGCD/PASSWORD,BANNER
  13. 00110$::NOTE:EXECUTE ES005M
  14. 00120$:OPTION:CBL74
  15. 00130$:LIBRARY:L1
  16. 00140$:SELECT:UMC/ES/OBJ/ES005M
  17. 00150$:EXECUTE:DUMP
  18. 00160$:LIMITS:5,40K,-6K,5K
  19. 00170$:FILE:W1,,100R
  20. 00180$:PRMFL:D1,W,S,UMC/INV/ES020UD1
  21. 00190$:PRMFL:I1,R,S,UMC/INV/ES010UD1
  22. 00200$:SYSOUT:P1,ORG
  23. 00210$:END
  24. 00220-------------------------------------------------------------------
  25. 00230$::NOTE:EXECUTE ES010M
  26. 00240$:OPTION:CBL74
  27. 00250$:LIBRARY:L1
  28. 00260$:SELECT:UMC/ES/OBJ/ES010M
  29. 00270$:EXECUTE:DUMP
  30. 00280$:LIMITS:5,40K,-6K,5K
  31. 00290$:FILE:W1,,100R
  32. 00300$:PRMFL:I1,R,S,UMC/INV/ES005MD1
  33. 00310$:PRMFL:D1,W,S,UMC/INV/ES010MD1
  34. 00320$:PRMFL:D2,W,S,UMC/INV/ES010MDA
  35. 00330$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  36. 00340$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  37. 00350$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  38. 00360$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  39. 00370#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  40. 00380$:END
  41. 00390-------------------------------------------------------------------
  42. 00400$::NOTE:EXECUTE ES021P
  43. 00410$:OPTION:CBL74
  44. 00420$:LIBRARY:L1
  45. 00430$:SELECT:UMC/ES/OBJ/ES021P
  46. 00440$:EXECUTE:DUMP
  47. 00450$:LIMITS:15,40K,-6K,5K
  48. 00460$:PRMFL:I1,R,S,UMC/INV/ES020UD1
  49. 00470$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  50. 00480$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  51. 00490$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  52. 00500$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  53. 00510$:PRMFL:P1,W,S,POOL/UMC/ES021PP1  DELETE IF USING SYSOUT
  54. 00520$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  55. 00530#INV      (PARAMETER INDICATING INVENTORY CODE)
  56. 00540$:END
  57. 00550-------------------------------------------------------------------
  58. 00560$::NOTE:EXECUTE ES030E
  59. 00570$:OPTION:CBL74
  60. 00580$:LIBRARY:L1
  61. 00590$:SELECT:UMC/ES/OBJ/ES030E
  62. 00600$:EXECUTE:DUMP
  63. 00610$:LIMITS:09,40K,-6K,34K
  64. 00620$:PRMFL:D1,W,S,UMC/INV/ES030ED1
  65. 00630$:PRMFL:I1,R,S,UMC/INV/ES020UD1
  66. 00640$:SYSOUT:P1,ORG
  67. 00650$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  68. 00660$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  69. 00670$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  70. 00680$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  71. 00690$:END
  72. 00700-------------------------------------------------------------------
  73. 00710$::NOTE:EXECUTE ES040X
  74. 00720$:OPTION:CBL74
  75. 00730$:LIBRARY:L1
  76. 00740$:SELECT:UMC/ES/OBJ/ES040X
  77. 00750$:EXECUTE:DUMP
  78. 00760$:LIMITS:09,40K,-6K,34K
  79. 00770$:PRMFL:D1,W,S,UMC/INV/ES040XD1
  80. 00780$:PRMFL:D2,W,S,UMC/INV/ES040XD2
  81. 00790*:FILE:D3,X3S,100L
  82. 00800$:PRMFL:D3,W,S,UMC/INV/ES040XD3
  83. 00810$:PRMFL:D4,R,S,UMC/INV/ES030ED1
  84. 00820$:SYSOUT:P1,ORG
  85. 00830$:END
  86. 00840-------------------------------------------------------------------
  87. 00850$::NOTE:EXECUTE ES050P
  88. 00860$:LOWLOAD
  89. 00870$:GMAP
  90. 00880$:LIMITS:04,,,5K
  91. 00890:600SM
  92. 00900:SORT:INOUT,,21
  93. 00910:FIELD:(C20,C1,C4,C7,C5,C89)
  94. 00920:SEQ:(A1,A4,A2,A5),SETA
  95. 00930:FILCB:INOUT,**,2
  96. 00940$:END
  97. 00950$:EXECUTE
  98. 00960$:LIMITS:09,,,5K
  99. 00970$:FILE:S1,,100R
  100. 00980*:FILE:SZ,X1S           ES040XD3
  101. 00990$:PRMFL:SZ,W,S,POOL/UMC/ES040XW3
  102. 01000$:PRMFL:SA,R,S,UMC/INV/ES040XD3
  103. 01010*:FILE:SA,X3R
  104. 01020$:END
  105. 01030$:OPTION:CBL74
  106. 01040$:LIBRARY:L1
  107. 01050$:SELECT:UMC/ES/OBJ/ES050P
  108. 01060$:EXECUTE:DUMP
  109. 01070$:LIMITS:09,40K,-6K,9K
  110. 01080$:PRMFL:D7,W,S,POOL/UMC/ES040XW3
  111. 01090*:FILE:D7,X1R           ES040XD3
  112. 01100$:PRMFL:D8,W,S,UMC/INV/ES050PD1
  113. 01110$:SYSOUT:P1,ORG
  114. 01120$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  115. 01130$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  116. 01140$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  117. 01150$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  118. 01160$:END
  119. 01170$:END
  120. 01180-------------------------------------------------------------------
  121. 01190$::NOTE:EXECUTE ES110U
  122. 01200$:OPTION:CBL74
  123. 01210$:LIBRARY:L1
  124. 01220$:SELECT:UMC/ES/OBJ/ES110U
  125. 01230$:EXECUTE:DUMP
  126. 01240$:LIMITS:09,40K,-6K,34K
  127. 01250$:FILE:S1,,100R
  128. 01260$:PRMFL:D1,W,S,UMC/INV/ES110UD1
  129. 01270$:PRMFL:I1,R,S,UMC/INV/V6FPU-NEW
  130. 01280$:PRMFL:I2,R,S,UMC/INV/V6FPU-PREV
  131. 01290#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  132. 01300$:END
  133. 01310-------------------------------------------------------------------
  134. 01320$::NOTE:EXECUTE ES115P
  135. 01330$:OPTION:CBL74
  136. 01340$:LIBRARY:L1
  137. 01350$:SELECT:UMC/ES/OBJ/ES115P
  138. 01360$:EXECUTE:DUMP
  139. 01370$:LIMITS:09,40K,-6K,34K
  140. 01380$:FILE:S1,,100R
  141. 01390$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  142. 01400$:PRMFL:P1,W,S,UMC/INV/ES115PP1  DELETE IF USING SYSOUT
  143. 01410$:PRMFL:I1,R,S,UMC/INV/ES110UD1
  144. 01420$:PRMFL:I2,R,S,UMC/INV/ES120UD1
  145. 01430$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  146. 01440$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  147. 01450$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  148. 01460$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  149. 01470#INV      (PARAMETER INDICATING INVENTORY CODE)
  150. 01480$:END
  151. 01490-------------------------------------------------------------------
  152. 01500$::NOTE:EXECUTE ES120E
  153. 01510$:OPTION:CBL74
  154. 01520$:LIBRARY:L1
  155. 01530$:SELECT:UMC/ES/OBJ/ES120E
  156. 01540$:EXECUTE:DUMP
  157. 01550$:LIMITS:5,40K,-6K,5K
  158. 01560$:PRMFL:D1,W,S,UMC/INV/ES120ED1
  159. 01570$:PRMFL:I1,R,S,UMC/INV/ES110UD1
  160. 01580$:PRMFL:P1,W,S,UMC/INV/ES120PD1  DELETE IF USING SYSOUT
  161. 01590$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  162. 01600$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  163. 01610$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  164. 01620$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  165. 01630$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  166. 01640$:END
  167. 01650-------------------------------------------------------------------
  168. 01660$::NOTE:EXECUTE ES127M
  169. 01670$:OPTION:CBL74
  170. 01680$:LIBRARY:L1
  171. 01690$:SELECT:UMC/ES/OBJ/ES127M
  172. 01700$:EXECUTE:DUMP
  173. 01710$:LIMITS:5,40K,-6K,5K
  174. 01720$:FILE:W1,,100R
  175. 01730$:PRMFL:P1,W,S,UMC/INV/ES127PD1  DELETE IF USING SYSOUT
  176. 01740$:PRMFL:P2,W,S,UMC/INV/ES127PD2  DELETE IF USING SYSOUT
  177. 01750$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  178. 01760$:SYSOUT:P2,ORG                   DELETE IF USING PRMFL
  179. 01770$:PRMFL:D1,W,S,UMC/INV/ES127MD1
  180. 01780$:PRMFL:I1,W,S,UMC/INV/ES120UD1
  181. 01790$:PRMFL:I2,R,S,UMC/INV/ES120ED1
  182. 01800$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  183. 01810$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  184. 01820$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  185. 01830$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  186. 01840$:END
  187. 01850-------------------------------------------------------------------
  188. 01860$::NOTE:EXECUTE ES130M
  189. 01870$:OPTION:CBL74
  190. 01880$:LIBRARY:L1
  191. 01890$:SELECT:UMC/ES/OBJ/ES130M
  192. 01900$:EXECUTE:DUMP
  193. 01910$:LIMITS:09,40K,,5K
  194. 01920$:FILE:S1,,20R
  195. 01930$:PRMFL:D1,W,R,UMC/INV/ES130MD1
  196. 01940$:PRMFL:D2,W,R,UMC/INV/ES130MD2
  197. 01950$:PRMFL:I1,R,S,UMC/INV/ES127MD1  OR ES120ED1
  198. 01960$:END
  199. 01970$:END
  200. 01980-------------------------------------------------------------------
  201. 01990$::NOTE:EXECUTE ES208M
  202. 02000$:OPTION:CBL74
  203. 02010$:LIBRARY:L1
  204. 02020$:SELECT:UMC/ES/OBJ/ES208M
  205. 02030$:EXECUTE:DUMP
  206. 02040#INVSTDS  (PARAMETER INDICATING INVENTORY, STATE & DIST CODES)
  207. 02050$:LIMITS:5,40K,,5K
  208. 02060$:FILE:DZ,,10R
  209. 02070$:FILE:S1,,10R
  210. 02080$:FILE:S2,,10R
  211. 02090$:FILE:S3,,10R
  212. 02100$:PRMFL:D1,W,S,UMC/INV/ES210UD1
  213. 02110$:PRMFL:I1,R,S,UMC/INV/VA DATA
  214. 02120$:PRMFL:I2,R,S,UMC/INV/VB DATA
  215. 02130$:END
  216. 02140-------------------------------------------------------------------
  217. 02150$::NOTE:EXECUTE ES210U
  218. 02160$:OPTION:CBL74
  219. 02170$:LIBRARY:L1
  220. 02180$:SELECT:UMC/ES/OBJ/ES210U
  221. 02190$:EXECUTE:DUMP
  222. 02200#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  223. 02210$:LIMITS:5,40K,,5K
  224. 02220$:FILE:S1,,100R
  225. 02230$:PRMFL:D1,W,S,UMC/INV/ES210UD1
  226. 02240$:PRMFL:I1,R,S,UMC/INV/VA NEW
  227. 02250$:PRMFL:I2,R,S,UMC/INV/ES210UI1
  228. 02260$:END
  229. 02270-------------------------------------------------------------------
  230. 02280$::NOTE:EXECUTE ES215P
  231. 02290$:OPTION:CBL74
  232. 02300$:LIBRARY:L1
  233. 02310$:SELECT:UMC/ES/OBJ/ES215P
  234. 02320$:EXECUTE:DUMP
  235. 02330#INV      (PARAMETER INDICATING INVENTORY CODE)
  236. 02340$:LIMITS:5,40K,-6K,5K
  237. 02350$:FILE:S1,,100R
  238. 02360$:PRMFL:I1,R,S,UMC/INV/ES210UD1
  239. 02370$:PRMFL:P1,W,S,UMC/INV/ES215PP1  DELETE IF USING SYSOUT
  240. 02380$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  241. 02390$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  242. 02400$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  243. 02410$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  244. 02420$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  245. 02430$:END
  246. 02440-------------------------------------------------------------------
  247. 02450$::NOTE:EXECUTE ES220E
  248. 02460$:OPTION:CBL74
  249. 02470$:LIBRARY:L1
  250. 02480$:SELECT:UMC/ES/OBJ/ES220E
  251. 02490$:EXECUTE:DUMP
  252. 02500$:LIMITS:25,40K,-6K,5K
  253. 02510$:PRMFL:D1,W,S,UMC/INV/ES220ED1
  254. 02520$:PRMFL:I1,R,S,UMC/INV/ES210UD1
  255. 02530$:SYSOUT:P1,ORG
  256. 02540$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  257. 02550$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  258. 02560$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  259. 02570$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  260. 02580$:END
  261. 02590$:END
  262. 02600-------------------------------------------------------------------
  263. 02610$::NOTE:EXECUTE ES230M
  264. 02620$:OPTION:CBL74
  265. 02630$:LIBRARY:L1
  266. 02640$:SELECT:UMC/ES/OBJ/ES230M
  267. 02650$:EXECUTE:DUMP
  268. 02660$:LIMITS:09,20K,,5K
  269. 02670$:FILE:W1,,100R
  270. 02680$:PRMFL:D1,W,S,UMC/INV/ES230MD1
  271. 02690$:PRMFL:I1,R,S,UMC/INV/ES220ED1
  272. 02700$:END
  273. 02710-------------------------------------------------------------------
  274. 02720$::NOTE:EXECUTE ES305M
  275. 02730$:OPTION:CBL74
  276. 02740$:LIBRARY:L1
  277. 02750$:SELECT:UMC/ES/OBJ/ES305M
  278. 02760$:EXECUTE:DUMP
  279. 02770#INVSTDS  (PARAMETER INDICATING INVENTORY, STATE & DIST CODES)
  280. 02780#INVSTDS  (PARAMETER INDICATING INVENTORY, STATE & DIST CODES)
  281. 02790$:LIMITS:5,40K,,5K
  282. 02800$:FILE:DZ,,10R
  283. 02810$:FILE:S1,,10R
  284. 02820$:FILE:S2,,10R
  285. 02830$:FILE:S3,,10R
  286. 02840$:PRMFL:D1,W,S,UMC/INV/ES310UD1
  287. 02850$:PRMFL:I1,R,S,UMC/INV/VC DATA
  288. 02860$:PRMFL:I2,R,S,UMC/INV/VB DATA
  289. 02870$:END
  290. 02880-------------------------------------------------------------------
  291. 02890$::NOTE:EXECUTE ES310U
  292. 02900$:OPTION:CBL74
  293. 02910$:LIBRARY:L1
  294. 02920$:SELECT:UMC/ES/OBJ/ES310U
  295. 02930$:EXECUTE:DUMP
  296. 02940#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  297. 02950$:LIMITS:5,40K,,5K
  298. 02960$:FILE:S1,,100R
  299. 02970$:PRMFL:D1,W,S,UMC/INV/ES310UD1
  300. 02980$:PRMFL:I1,R,S,UMC/INV/VBR NEW
  301. 02990$:PRMFL:I2,R,S,UMC/INV/ES310UI1
  302. 03000$:END
  303. 03010-------------------------------------------------------------------
  304. 03020$::NOTE:EXECUTE ES315P
  305. 03030$:OPTION:CBL74
  306. 03040$:LIBRARY:L1
  307. 03050$:SELECT:UMC/ES/OBJ/ES315P
  308. 03060$:EXECUTE:DUMP
  309. 03070#INV      (PARAMETER INDICATING INVENTORY CODE)
  310. 03080$:LIMITS:5,40K,-6K,5K
  311. 03090$:FILE:S1,,100R
  312. 03100$:PRMFL:I1,R,S,UMC/INV/ES310UD1
  313. 03110$:PRMFL:P1,W,S,UMC/INV/ES315PP1  DELETE IF USING SYSOUT
  314. 03120$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  315. 03130$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  316. 03140$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  317. 03150$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  318. 03160$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  319. 03170$:END
  320. 03180-------------------------------------------------------------------
  321. 03190$::NOTE:EXECUTE ES320E
  322. 03200$:OPTION:CBL74
  323. 03210$:LIBRARY:L1
  324. 03220$:SELECT:UMC/ES/OBJ/ES320E
  325. 03230$:EXECUTE:DUMP
  326. 03240$:LIMITS:25,40K,-6K,5K
  327. 03250$:PRMFL:D1,W,S,UMC/INV/ES320ED1
  328. 03260$:PRMFL:U1,W,S,UMC/INV/ES320UD1
  329. 03270$:PRMFL:B1,W,S,UMC/INV/ES320EB1
  330. 03280$:PRMFL:I1,R,S,UMC/INV/ES310UD1
  331. 03290$:SYSOUT:P1,ORG
  332. 03300$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  333. 03310$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  334. 03320$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  335. 03330$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  336. 03340$:END
  337. 03350$:END
  338. 03360-------------------------------------------------------------------
  339. 03370$::NOTE:EXECUTE ES410U
  340. 03380$:OPTION:CBL74
  341. 03390$:LIBRARY:L1
  342. 03400$:SELECT:UMC/ES/OBJ/ES410U
  343. 03410$:EXECUTE:DUMP
  344. 03420#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  345. 03430$:LIMITS:5,40K,,5K
  346. 03440$:FILE:S1,,100R
  347. 03450$:PRMFL:D1,W,S,UMC/INV/ES410UD1
  348. 03460$:PRMFL:I1,R,S,UMC/INV/VWL NEW
  349. 03470$:PRMFL:I2,R,S,UMC/INV/ES410UI1
  350. 03480$:END
  351. 03490-------------------------------------------------------------------
  352. 03500$::NOTE:EXECUTE ES415P
  353. 03510$:OPTION:CBL74
  354. 03520$:LIBRARY:L1
  355. 03530$:SELECT:UMC/ES/OBJ/ES415P
  356. 03540$:EXECUTE:DUMP
  357. 03550#INV      (PARAMETER INDICATING INVENTORY CODE)
  358. 03560$:LIMITS:5,40K,-6K,5K
  359. 03570$:FILE:S1,,100R
  360. 03580$:PRMFL:I1,R,S,UMC/INV/ES410UD1
  361. 03590$:PRMFL:P1,W,S,UMC/INV/ES415PP1  DELETE IF USING SYSOUT
  362. 03600$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  363. 03610$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  364. 03620$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  365. 03630$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  366. 03640$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  367. 03650$:END
  368. 03660-------------------------------------------------------------------
  369. 03670$::NOTE:EXECUTE ES420E
  370. 03680$:OPTION:CBL74
  371. 03690$:LIBRARY:L1
  372. 03700$:SELECT:UMC/ES/OBJ/ES420E
  373. 03710$:EXECUTE:DUMP
  374. 03720$:LIMITS:25,40K,-6K,5K
  375. 03730$:PRMFL:D1,W,S,UMC/INV/ES420ED1
  376. 03740$:PRMFL:I1,R,S,UMC/INV/ES410UD1
  377. 03750$:SYSOUT:P1,ORG
  378. 03760$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  379. 03770$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  380. 03780$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  381. 03790$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  382. 03800$:END
  383. 03810$:END
  384. 03820-------------------------------------------------------------------
  385. 03830$::NOTE:EXECUTE ES510P
  386. 03840$:LIMITS:100,,,5K
  387. 03850$:LOWLOAD
  388. 03860$:GMAP
  389. 03870$:LIMITS:100,,,5K
  390. 03880:600SM
  391. 03890:SORT:FILEIN,,15
  392. 03900:FIELD:(C4,C14,C11,C2,C4,C13,C4)
  393. 03910:SEQ:(A2,A7,A4,A6)
  394. 03920:FILCB:FILEIN,**,2
  395. 03930$:END
  396. 03940$:EXECUTE
  397. 03950$:LIMITS:100,,,5K
  398. 03960$:FILE:S1,,10R
  399. 03970$:FILE:SZ,A1S          ES230MD1
  400. 03980$:PRMFL:SA,R,S,UMC/INV/ES230MD1
  401. 03990$:END
  402. 04000$:OPTION:CBL74
  403. 04010$:LIBRARY:L1
  404. 04020$:SELECT:UMC/ES/OBJ/ES510P
  405. 04030$:EXECUTE:DUMP
  406. 04040$:LIMITS:100,40K,-6K,5K
  407. 04050$:FILE:I1,A1R          ES230MD1
  408. 04060$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  409. 04070$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  410. 04080$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  411. 04090$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  412. 04100$:PRMFL:P1,W,S,UMC/INV/P010
  413. 04110$:END
  414. 04120-------------------------------------------------------------------
  415. 04130$::NOTE:EXECUTE ES512Z
  416. 04140$:LOWLOAD
  417. 04150$:GMAP
  418. 04160$:LIMITS:100,,,5K
  419. 04170:600SM
  420. 04180:SORT:INOUT,,15
  421. 04190:FIELD:(C12,C4,C2,C30,C42)
  422. 04200:SEQ:(A5,A2,A3)SETA
  423. 04210:FILCB:INOUT,**,2
  424. 04220$:END
  425. 04230$:EXECUTE
  426. 04240$:LIMITS:100,,,5K
  427. 04250$:FILE:S1,,20R
  428. 04260$:FILE:SZ,X1S          ES230MD1
  429. 04270$:PRMFL:SA,R,S,UMC/INV/ES230MD1  OR ES220ED1
  430. 04280$:END
  431. 04290$:LOWLOAD
  432. 04300$:GMAP
  433. 04310$:LIMITS:100,,,5K
  434. 04320:600SM
  435. 04330:SORT:INOUT,,16
  436. 04340:FIELD:(C28,C4,C20,C4,C2,C38)
  437. 04350:SEQ:(A2,A4,A5)SETA
  438. 04360:FILCB:INOUT,**,2
  439. 04370$:END
  440. 04380$:EXECUTE
  441. 04390$:LIMITS:100,,,5K
  442. 04400$:FILE:S1,,10R
  443. 04410$:FILE:SZ,X2S          ES320EB1
  444. 04420$:PRMFL:SA,R,S,UMC/INV/ES320EB1  MUST BE VB RECORDS ONLY
  445. 04430$:END
  446. 04440$:OPTION:CBL74
  447. 04450$:SELECT:UMC/ES/OBJ/ES512Z
  448. 04460$:EXECUTE:DUMP
  449. 04470$:LIMITS:100,40K,,5K
  450. 04480$:FILE:I1,X1R          ES230MD1
  451. 04490$:FILE:I2,X2R          ES320EB1
  452. 04500$:FILE:D1,X3S          ES512ZD1
  453. 04510$:END
  454. 04520-------------------------------------------------------------------
  455. 04530$::NOTE:EXECUTE ES515P
  456. 04540$:LOWLOAD
  457. 04550$:GMAP
  458. 04560$:LIMITS:100,,,5K
  459. 04570:600SM
  460. 04580:SORT:INOUT,,22
  461. 04590:FIELD:(C4,C6,C2,C4,C80,C20,C8,C6)
  462. 04600:SEQ:(A2,A4,A6,A8)SETA
  463. 04610:FILCB:INOUT,**,2
  464. 04620$:END
  465. 04630$:EXECUTE
  466. 04640$:LIMITS:100,,,5K
  467. 04650$:FILE:S1,,40R
  468. 04660$:FILE:SA,X3R          ES512ZD1
  469. 04670$:PRMFL:SZ,W,S,UMC/INV/ES515PD1
  470. 04680$:END
  471. 04690$:OPTION:CBL74
  472. 04700$:LIBRARY:L1
  473. 04710$:SELECT:UMC/ES/OBJ/ES515P
  474. 04720$:EXECUTE:DUMP
  475. 04730$:LIMITS:100,40K,-6K,5K
  476. 04740$:FILE:S1,,10R
  477. 04750$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  478. 04760$:PRMFL:D1,R,S,UMC/INV/ES515PD1
  479. 04770$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  480. 04780$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  481. 04790$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  482. 04800$:PRMFL:P1,W,S,UMC/INV/P01A
  483. 04810$:END
  484. 04820-------------------------------------------------------------------
  485. 04830$::NOTE:EXECUTE ES520P
  486. 04840$:LOWLOAD
  487. 04850$:GMAP
  488. 04860$:LIMITS:100,,,5K
  489. 04870:600SM
  490. 04880:SORT:FILEIN,,13
  491. 04890:FIELD:(C4,C8,C16,C4,C2,C3,C11,C4,C4,C2)
  492. 04900:SEQ:(A2,A9,A10,A4,A8,A5,A7),SETA
  493. 04910:FILCB:FILEIN,**,2
  494. 04920$:END
  495. 04930$:EXECUTE
  496. 04940$:LIMITS:100,,,5K
  497. 04950$:FILE:S1,,20R
  498. 04960$:FILE:SZ,A2S          ES320ED1
  499. 04970$:PRMFL:SA,R,S,UMC/INV/ES320ED1
  500. 04980$:END
  501. 04990$:OPTION:CBL74
  502. 05000$:LIBRARY:L1
  503. 05010$:SELECT:UMC/ES/OBJ/ES520P
  504. 05020$:EXECUTE:DUMP
  505. 05030$:LIMITS:100,40K,-6K,5K
  506. 05040$:FILE:I1,A2R          ES320ED1
  507. 05050$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  508. 05060$:PRMFL:D1,W,S,UMC/INV/ES520PD1
  509. 05070$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  510. 05080$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  511. 05090$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  512. 05100$:PRMFL:P1,W,S,UMC/INV/P020
  513. 05110$:END
  514. 05120-------------------------------------------------------------------
  515. 05130$::NOTE:EXECUTE ES524Z
  516. 05140$:OPTION:CBL74
  517. 05150$:SELECT:UMC/ES/OBJ/ES524Z
  518. 05160$:EXECUTE:DUMP
  519. 05170$:LIMITS:100,20K,,5K
  520. 05180$:FILE:D1,B4S
  521. 05190$:FILE:S1,,150R
  522. 05200$:FILE:S2,,150R
  523. 05210$:FILE:S3,,150R
  524. 05220$:FILE:W1,B1S
  525. 05230$:FILE:W2,B2S
  526. 05240$:FILE:W3,B3S
  527. 05250$:PRMFL:I1,R,S,UMC/INV/ES230MD1  OR ES220ED1
  528. 05260$:PRMFL:I2,R,S,UMC/INV/ES520PD1
  529. 05270$:PRMFL:I3,R,S,UMC/INV/ES320UD1  VM FILE
  530. 05280$:END
  531. 05290-------------------------------------------------------------------
  532. 05300$::NOTE:EXECUTE ES526P
  533. 05310$:OPTION:CBL74
  534. 05320$:LIBRARY:L1
  535. 05330$:SELECT:UMC/ES/OBJ/ES526P
  536. 05340$:EXECUTE:DUMP
  537. 05350#INV      (PARAMETER INDICATING INVENTORY CODE)
  538. 05360$:LIMITS:100,40K,-6K,5K
  539. 05370$:FILE:I1,B4R
  540. 05380$:FILE:S1,,100R
  541. 05390$:FILE:S2,,100R
  542. 05400$:FILE:S3,,100R
  543. 05410$:FILE:W1,B5S
  544. 05420$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  545. 05430$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  546. 05440$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  547. 05450$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  548. 05460$:PRMFL:P1,W,S,UMC/INV/P01B
  549. 05470$:END
  550. 05480-------------------------------------------------------------------
  551. 05490$::NOTE:EXECUTE ES530M
  552. 05500$:LOWLOAD
  553. 05510$:GMAP
  554. 05520$:LIMITS:100,,,5K
  555. 05530:600SM
  556. 05540:SORT:FILEIN,,11
  557. 05550:FIELD:(C8,C6,C4,C2,C46)
  558. 05560:SEQ:(A1,A3,A4),SETA
  559. 05570:FILCB:FILEIN,**,2
  560. 05580$:END
  561. 05590$:EXECUTE
  562. 05600$:LIMITS:100,,,5K
  563. 05610$:FILE:S1,,60R
  564. 05620$:FILE:SZ,X6S          ES040XD1
  565. 05630$:PRMFL:SA,R,S,UMC/INV/ES040XD1
  566. 05640$:END
  567. 05650$:LOWLOAD
  568. 05660$:GMAP
  569. 05670$:LIMITS:100,,,5K
  570. 05680:600SM
  571. 05690:SORT:FILEIN,,8
  572. 05700:FIELD:(C8,C4,C2,C34)
  573. 05710:SEQ:(A1,A2,A3),SETA
  574. 05720:FILCB:FILEIN,**,2
  575. 05730$:END
  576. 05740$:EXECUTE
  577. 05750$:LIMITS:100,,,5K
  578. 05760$:FILE:S1,,20R
  579. 05770$:FILE:SZ,X7S          ES520PD1
  580. 05780$:PRMFL:SA,R,S,UMC/INV/ES520PD1
  581. 05790$:END
  582. 05800$:OPTION:CBL74
  583. 05810$:SELECT:UMC/ES/OBJ/ES530M
  584. 05820$:EXECUTE:DUMP
  585. 05830$:LIMITS:100,40K,,5K
  586. 05840$:FILE:D1,X6R          ES040XD1
  587. 05850$:FILE:D2,X7R          ES520PD1
  588. 05860$:PRMFL:D3,W,S,UMC/INV/ES530MD1
  589. 05870$:END
  590. 05880-------------------------------------------------------------------
  591. 05890$::NOTE:EXECUTE ES540P
  592. 05900$:OPTION:CBL74
  593. 05910$:LIBRARY:L1
  594. 05920$:SELECT:UMC/ES/OBJ/ES540P
  595. 05930$:EXECUTE:DUMP
  596. 05940$:LIMITS:100,40K,-6K,5K
  597. 05950$:FILE:D1,X1S
  598. 05960$:FILE:S1,,15R
  599. 05970$:FILE:S2,,15R
  600. 05980$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  601. 05990$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  602. 06000$:PRMFL:I1,R,S,UMC/INV/ES030ED1
  603. 06010$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  604. 06020$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  605. 06030$:PRMFL:P1,W,S,UMC/INV/P030
  606. 06040$:END
  607. 06050-------------------------------------------------------------------
  608. 06060$::NOTE:EXECUTE ES555M
  609. 06070$:LOWLOAD
  610. 06080$:GMAP
  611. 06090$:LIMITS:100,,,5K
  612. 06100:600SM
  613. 06110:SORT:FILEIN,,8
  614. 06120:FIELD:(C8,C6,C18,C4,C12)
  615. 06130:SEQ:(A1,A4,A2),SETA
  616. 06140:FILCB:FILEIN,**,2
  617. 06150$:END
  618. 06160$:EXECUTE
  619. 06170$:LIMITS:100,,,5K
  620. 06180$:FILE:S1,,200R
  621. 06190$:FILE:SZ,A7S          ES530MD1
  622. 06200$:PRMFL:SA,R,S,UMC/INV/ES530MD1
  623. 06210$:END
  624. 06220$:OPTION:CBL74
  625. 06230$:SELECT:UMC/ES/OBJ/ES555M
  626. 06240$:EXECUTE:DUMP
  627. 06250$:LIMITS:100,40K,,5K
  628. 06260$:FILE:D2,A7R          ES530MD1
  629. 06270$:PRMFL:D1,R,S,UMC/INV/ES050PD1
  630. 06280$:PRMFL:D3,W,S,UMC/INV/ES555MD1
  631. 06290$:END
  632. 06300-------------------------------------------------------------------
  633. 06310$::NOTE:EXECUTE ES560P
  634. 06320$:LOWLOAD
  635. 06330$:GMAP
  636. 06340$:LIMITS:100,,,5K
  637. 06350:600SM
  638. 06360:SORT:FILEIN,,26
  639. 06370:FIELD:(C8,C6,C4,C2,C136)
  640. 06380:SEQ:(A1,A3,A4),SETA
  641. 06390:FILCB:FILEIN,**,2
  642. 06400$:END
  643. 06410$:EXECUTE
  644. 06420$:FILE:S1,,200R
  645. 06430$:FILE:SZ,A8S          ES555MD1
  646. 06440$:PRMFL:SA,R,S,UMC/INV/ES555MD1
  647. 06450$:END
  648. 06460$:LOWLOAD
  649. 06470$:GMAP
  650. 06480$:LIMITS:100,,,5K
  651. 06490:600SM
  652. 06500:SORT:FILEIN,,8
  653. 06510:FIELD:(C8,C4,C2,C34)
  654. 06520:SEQ:(A1,A2,A3),SETA
  655. 06530:FILCB:FILEIN,**,2
  656. 06540$:END
  657. 06550$:EXECUTE
  658. 06560$:FILE:S1,,200R
  659. 06570$:FILE:SZ,A9S          ES530MD1
  660. 06580$:PRMFL:SA,R,S,UMC/INV/ES530MD1
  661. 06590$:END
  662. 06600$:OPTION:CBL74
  663. 06610$:LIBRARY:L1
  664. 06620$:SELECT:UMC/ES/OBJ/ES560P
  665. 06630$:EXECUTE:DUMP
  666. 06640$:LIMITS:100,40K,-6K,5K
  667. 06650$:FILE:D1,A8R          ES555MD1
  668. 06660$:FILE:D2,A9R          ES530MD1
  669. 06670$:PRMFL:P2,W,S,UMC/INV/P051
  670. 06680*:FILE:P2               P051
  671. 06690$:FILE:S1,,200R
  672. 06700$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  673. 06710$:PRMFL:D3,W,S,UMC/INV/ES560PD1
  674. 06720$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  675. 06730$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  676. 06740$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  677. 06750$:PRMFL:P1,W,S,UMC/INV/P050
  678. 06760$:END
  679. 06770-------------------------------------------------------------------
  680. 06780$::NOTE:EXECUTE ES570P
  681. 06790$:LOWLOAD
  682. 06800$:GMAP
  683. 06810$:LIMITS:100,,,5K
  684. 06820:600SM
  685. 06830:SORT:INOUT,,26
  686. 06840:FIELD:(C20,C1,C7,C1,C127)
  687. 06850:SEQ:(A1,A4,A3)SETA
  688. 06860:FILCB:INOUT,**,2
  689. 06870$:END
  690. 06880$:EXECUTE
  691. 06890$:FILE:S1,,50R
  692. 06900$:FILE:S2,,50R
  693. 06910$:FILE:S3,,50R
  694. 06920$:FILE:SZ,B1S          ES555MD1
  695. 06930$:PRMFL:SA,R,S,UMC/INV/ES555MD1
  696. 06940$:END
  697. 06950$:LOWLOAD
  698. 06960$:GMAP
  699. 06970$:LIMITS:100,,,5K
  700. 06980:600SM
  701. 06990:SORT:INOUT,,8
  702. 07000:FIELD:(C8,C6,C18,C6,C10)
  703. 07010:SEQ:(A1,A4,A2)SETA
  704. 07020:FILCB:INOUT,**,2
  705. 07030$:END
  706. 07040$:EXECUTE
  707. 07050$:FILE:S1,,400R
  708. 07060$:FILE:SZ,B2S          ES530MD1
  709. 07070$:PRMFL:SA,R,S,UMC/INV/ES530MD1
  710. 07080$:END
  711. 07090$:OPTION:CBL74
  712. 07100$:LIBRARY:L1
  713. 07110$:SELECT:UMC/ES/OBJ/ES570P
  714. 07120$:EXECUTE:DUMP
  715. 07130$:LIMITS:100,40K,-6K,5K
  716. 07140$:FILE:D2,B1R          ES555MD1
  717. 07150$:FILE:D3,B2R          ES530MD1
  718. 07160$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  719. 07170$:PRMFL:D1,W,S,UMC/INV/ES570PD1
  720. 07180$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  721. 07190$:PRMFL:I1,R,R,UMC/INV/ES130MD1
  722. 07200$:PRMFL:I2,R,R,UMC/INV/ES130MD2
  723. 07210$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  724. 07220$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  725. 07230$:PRMFL:P1,W,S,UMC/INV/P060
  726. 07240$:END
  727. 07250-------------------------------------------------------------------
  728. 07260$::NOTE:EXECUTE ES575M
  729. 07270$:LOWLOAD
  730. 07280$:GMAP
  731. 07290$:LIMITS:100,,,5K
  732. 07300:600SM
  733. 07310:SORT:INOUT,,5
  734. 07320:FIELD:(C8,C6,C1,C7,C1,C7)
  735. 07330:SEQ:(A1,A2,A3,A4,A5),SETA
  736. 07340:FILCB:INOUT,**,2
  737. 07350$:END
  738. 07360$:EXECUTE
  739. 07370$:FILE:S1,,200R
  740. 07380$:FILE:SZ,B3S          ES570PD1
  741. 07390$:PRMFL:SA,R,S,UMC/INV/ES570PD1
  742. 07400$:END
  743. 07410$:LOWLOAD
  744. 07420$:GMAP
  745. 07430$:LIMITS:100,,,5K
  746. 07440:600SM
  747. 07450:SORT:INOUT,,26
  748. 07460:FIELD:(C8,C6,C6,C1,C7,C1,C127)
  749. 07470:SEQ:(A1,A3,A6,A5),SETA
  750. 07480:FILCB:INOUT,**,2
  751. 07490$:END
  752. 07500$:EXECUTE
  753. 07510$:FILE:S1,,200R
  754. 07520$:FILE:SZ,B4S          ES555MD1
  755. 07530$:PRMFL:SA,R,S,UMC/INV/ES555MD1
  756. 07540$:END
  757. 07550$:OPTION:CBL74
  758. 07560$:SELECT:UMC/ES/OBJ/ES575M
  759. 07570$:EXECUTE:DUMP
  760. 07580$:LIMITS:100,40K,,5K
  761. 07590$:FILE:D1,B3R          ES570PD1
  762. 07600$:FILE:D2,B4R          ES555MD1
  763. 07610$:PRMFL:D3,W,S,UMC/INV/ES575MD1
  764. 07620$:END
  765. 07630-------------------------------------------------------------------
  766. 07640$::NOTE:EXECUTE ES590M
  767. 07650$:LOWLOAD
  768. 07660$:GMAP
  769. 07670$:LIMITS:100,,,5K
  770. 07680:600SM
  771. 07690:SORT:FILEIN,,8
  772. 07700:FIELD:(C8,C4,C2,C34)
  773. 07710:SEQ:(A1,A2,A3),SETA
  774. 07720:FILCB:FILEIN,**,2
  775. 07730$:END
  776. 07740$:EXECUTE
  777. 07750$:FILE:S1,,200R
  778. 07760$:FILE:SZ,B5S          ES530MD1
  779. 07770$:PRMFL:SA,R,S,UMC/INV/ES530MD1
  780. 07780$:END
  781. 07790$:LOWLOAD
  782. 07800$:GMAP
  783. 07810$:LIMITS:100,,,5K
  784. 07820:600SM
  785. 07830:SORT:FILEIN,,30
  786. 07840:FIELD:(C8,C6,C4,C2,C160)
  787. 07850:SEQ:(A1,A3,A4),SETA
  788. 07860:FILCB:FILEIN,**,2
  789. 07870$:END
  790. 07880$:EXECUTE
  791. 07890$:FILE:S1,,200R
  792. 07900$:FILE:SZ,B6S          ES575MD1
  793. 07910$:PRMFL:SA,R,S,UMC/INV/ES575MD1
  794. 07920$:END
  795. 07930$:OPTION:CBL74
  796. 07940$:SELECT:UMC/ES/OBJ/ES590M
  797. 07950$:EXECUTE:DUMP
  798. 07960$:LIMITS:100,40K,,5K
  799. 07970$:FILE:D1,B6R          ES575MD1
  800. 07980$:FILE:D2,B5R          ES530MD1
  801. 07990$:PRMFL:D3,W,S,UMC/INV/ES590MD1
  802. 08000$:END
  803. 08010-------------------------------------------------------------------
  804. 08020$::NOTE:EXECUTE ES600M
  805. 08030$:LOWLOAD
  806. 08040$:GMAP
  807. 08050$:LIMITS:100,,,5K
  808. 08060:600SM
  809. 08070:SORT:FILEIN,,4
  810. 08080:FIELD:(C8,C6,C3,C7)
  811. 08090:SEQ:(A1,A2),SETA
  812. 08100:FILCB:FILEIN,**,2
  813. 08110$:END
  814. 08120$:EXECUTE
  815. 08130$:FILE:S1,,200R
  816. 08140$:FILE:SZ,B7S          ES040XD2
  817. 08150$:PRMFL:SA,R,S,UMC/INV/ES040XD2
  818. 08160$:END
  819. 08170$:LOWLOAD
  820. 08180$:GMAP
  821. 08190$:LIMITS:100,,,5K
  822. 08200:600SM
  823. 08210:SORT:FILEIN,,33
  824. 08220:FIELD:(C8,C6,C4,C2,C178)
  825. 08230:SEQ:(A1,A3,A4),SETA
  826. 08240:FILCB:FILEIN,**,2
  827. 08250$:END
  828. 08260$:EXECUTE
  829. 08270$:LIMITS:100,,,5K
  830. 08280$:FILE:S1,,200R
  831. 08290$:FILE:SZ,B8S          ES590MD1
  832. 08300$:PRMFL:SA,R,S,UMC/INV/ES590MD1
  833. 08310$:END
  834. 08320$:OPTION:CBL74
  835. 08330$:SELECT:UMC/ES/OBJ/ES600M
  836. 08340$:EXECUTE:DUMP
  837. 08350$:LIMITS:100,40K,,5K
  838. 08360$:FILE:D1,B8R          ES590MD1
  839. 08370$:FILE:D2,B7R          ES040XD2
  840. 08380$:PRMFL:D3,W,S,UMC/INV/ES600MD1
  841. 08390$:END
  842. 08400-------------------------------------------------------------------
  843. 08410$::NOTE:EXECUTE ES610P
  844. 08420$:LOWLOAD
  845. 08430$:GMAP
  846. 08440$:LIMITS:100,,,5K
  847. 08450:600SM
  848. 08460:SORT:FILEIN,,33
  849. 08470:FIELD:(C8,C6,C6,C1,C7,C1,C148,C11,C4)
  850. 08480:SEQ:(A1,A9,A3,A6,A8),SETA
  851. 08490:FILCB:FILEIN,**,2
  852. 08500$:END
  853. 08510$:EXECUTE
  854. 08520$:LIMITS:100,,,5K
  855. 08530$:FILE:S1,,200R
  856. 08540$:FILE:SZ,B9S          ES600MD1
  857. 08550$:PRMFL:SA,R,S,UMC/INV/ES600MD1
  858. 08560$:END
  859. 08570$:OPTION:CBL74
  860. 08580$:LIBRARY:L1
  861. 08590$:SELECT:UMC/ES/OBJ/ES610P
  862. 08600$:EXECUTE:DUMP
  863. 08610$:LIMITS:100,40K,-6K,5K
  864. 08620$:FILE:D1,B9R
  865. 08630$:FILE:S1,,200R
  866. 08640$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  867. 08650$:PRMFL:D2,W,S,UMC/INV/ES610PD1
  868. 08660$:PRMFL:D3,W,S,UMC/INV/ES610PD2
  869. 08670$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  870. 08680$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  871. 08690$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  872. 08700$:PRMFL:P1,W,S,UMC/INV/P070
  873. 08710$:END
  874. 08720-------------------------------------------------------------------
  875. 08730$::NOTE:EXECUTE ES615M
  876. 08740$:LOWLOAD
  877. 08750$:GMAP
  878. 08760$:LIMITS:100,,,5K
  879. 08770:600SM
  880. 08780:SORT:INOUT,,8
  881. 08790:FIELD:(C8,C6,C11,C4,C19)
  882. 08800:SEQ:(A1,A4,A2),SETA
  883. 08810:FILCB:INOUT,**,2
  884. 08820$:END
  885. 08830$:EXECUTE
  886. 08840$:LIMITS:100,,,5K
  887. 08850$:FILE:S1,,200R
  888. 08860$:FILE:SZ,C1S          ES530MD1
  889. 08870$:PRMFL:SA,R,S,UMC/INV/ES530MD1
  890. 08880$:END
  891. 08890$:LOWLOAD
  892. 08900$:GMAP
  893. 08910$:LIMITS:100,,,5K
  894. 08920:600SM
  895. 08930:SORT:INOUT,,10
  896. 08940:FIELD:(C8,C4,C11,C8,C1,C10,C4,C14)
  897. 08950:SEQ:(A1,A2,A4,A5,A7),SETA
  898. 08960:FILCB:INOUT,**,2
  899. 08970$:END
  900. 08980$:EXECUTE
  901. 08990$:LIMITS:100,,,5K
  902. 09000$:FILE:S1,,200R
  903. 09010$:FILE:SZ,C2S          ES610PD1
  904. 09020$:PRMFL:SA,R,S,UMC/INV/ES610PD1
  905. 09030$:END
  906. 09040$:OPTION:CBL74
  907. 09050$:LIBRARY:L1
  908. 09060$:SELECT:UMC/ES/OBJ/ES615M
  909. 09070$:EXECUTE:DUMP
  910. 09080$:LIMITS:100,40K,-6K,5K
  911. 09090$:FILE:D1,C1R          ES530MD1
  912. 09100$:FILE:D2,C2R          ES610PD1
  913. 09110$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  914. 09120$:PRMFL:D3,W,S,UMC/INV/ES615MD1
  915. 09130$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  916. 09140$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  917. 09150$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  918. 09160$:END
  919. 09170-------------------------------------------------------------------
  920. 09180$::NOTE:EXECUTE ES670M
  921. 09190$:LOWLOAD
  922. 09200$:GMAP
  923. 09210$:LIMITS:100,,,5K
  924. 09220:600SM
  925. 09230:SORT:INOUT,,16
  926. 09240:FIELD:(C4,C15,C11,C66)
  927. 09250:SEQ:(A3,A1),SETA
  928. 09260:FILCB:INOUT,**,2
  929. 09270$:END
  930. 09280$:EXECUTE
  931. 09290$:LIMITS:100,,,5K
  932. 09300$:FILE:S1,,200R
  933. 09310$:FILE:SZ,C7S          ES320ED1
  934. 09320$:PRMFL:SA,R,S,UMC/INV/ES320ED1
  935. 09330$:END
  936. 09340$:OPTION:CBL74
  937. 09350$:SELECT:UMC/ES/OBJ/ES670M
  938. 09360$:EXECUTE:DUMP
  939. 09370$:LIMITS:100,40K,,5K
  940. 09380$:FILE:D1,C7R          ES320ED1
  941. 09390$:FILE:S1,,200R
  942. 09400$:PRMFL:I1,W,R,UMC/INV/ES670MD1
  943. 09410$:PRMFL:I2,W,R,UMC/INV/ES670MD2
  944. 09420$:END
  945. 09430-------------------------------------------------------------------
  946. 09440$::NOTE:EXECUTE ES680P
  947. 09450$:LOWLOAD
  948. 09460$:GMAP
  949. 09470$:LIMITS:100,,,5K
  950. 09480:600SM
  951. 09490:SORT:INOUT,,10
  952. 09500:FIELD:(C8,C4,C11,C1,C7,C1,C28)
  953. 09510:SEQ:(A1,A3,A2,A4,A5),SETA
  954. 09520:FILCB:INOUT,**,2
  955. 09530$:END
  956. 09540$:EXECUTE
  957. 09550$:LIMITS:100,,,5K
  958. 09560$:FILE:S1,,200R
  959. 09570$:FILE:SZ,C8S          ES615MD1
  960. 09580$:PRMFL:SA,R,S,UMC/INV/ES615MD1
  961. 09590$:END
  962. 09600$:OPTION:CBL74
  963. 09610$:LIBRARY:L1
  964. 09620$:SELECT:UMC/ES/OBJ/ES680P
  965. 09630$:EXECUTE:DUMP
  966. 09640$:LIMITS:100,40K,-6K,5K
  967. 09650$:FILE:D1,C8R          ES615MD1
  968. 09660$:FILE:S1,,200R
  969. 09670$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  970. 09680$:PRMFL:D2,W,S,UMC/INV/ES680PD1
  971. 09690$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  972. 09700$:PRMFL:I1,R,R,UMC/INV/ES670MD1
  973. 09710$:PRMFL:I2,R,R,UMC/INV/ES670MD2
  974. 09720$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  975. 09730$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  976. 09740$:PRMFL:P1,W,S,UMC/INV/P110
  977. 09750$:END
  978. 09760-------------------------------------------------------------------
  979. 09770$::NOTE:EXECUTE ES690M
  980. 09780$:OPTION:CBL74
  981. 09790$:LIBRARY:L1
  982. 09800$:SELECT:UMC/ES/OBJ/ES690M
  983. 09810$:EXECUTE:DUMP
  984. 09820$:LIMITS:100,40K,,5K
  985. 09830$:FILE:S1,,200R
  986. 09840$:PRMFL:D1,R,S,UMC/INV/ES040XD1
  987. 09850$:PRMFL:D2,R,S,UMC/INV/ES530MD1
  988. 09860$:PRMFL:D3,W,S,UMC/INV/ES690MD1
  989. 09870$:END
  990. 09880-------------------------------------------------------------------
  991. 09890$::NOTE:EXECUTE ES700P
  992. 09900$:OPTION:CBL74
  993. 09910$:LIBRARY:L1
  994. 09920$:SELECT:UMC/ES/OBJ/ES700P
  995. 09930$:EXECUTE:DUMP
  996. 09940$:LIMITS:100,40K,-6K,5K
  997. 09950$:FILE:S1,,100R
  998. 09960$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  999. 09970$:PRMFL:D3,R,S,UMC/INV/ES690MD1
  1000. 09980$:PRMFL:D4,W,S,UMC/INV/ES700PD1
  1001. 09990$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1002. 10000$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1003. 10010$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1004. 10020$:PRMFL:P1,W,S,UMC/INV/P120
  1005. 10030$:END
  1006. 10040-------------------------------------------------------------------
  1007. 10050$::NOTE:EXECUTE ES710P
  1008. 10060$:LOWLOAD
  1009. 10070$:GMAP
  1010. 10080$:LIMITS:100,,,5K
  1011. 10090:600SM
  1012. 10100:SORT:INOUT,,11
  1013. 10110:FIELD:(C8,C6,C4,C2,C46)
  1014. 10120:SEQ:(A1,A3,A4),SETA
  1015. 10130:FILCB:INOUT,**,2
  1016. 10140$:END
  1017. 10150$:EXECUTE
  1018. 10160$:LIMITS:100,,,5K
  1019. 10170$:FILE:S1,,200R
  1020. 10180$:FILE:SZ,C9S          ES040XD1
  1021. 10190$:PRMFL:SA,R,S,UMC/INV/ES040XD1
  1022. 10200$:END
  1023. 10210$:OPTION:CBL74
  1024. 10220$:LIBRARY:L1
  1025. 10230$:SELECT:UMC/ES/OBJ/ES710P
  1026. 10240$:EXECUTE:DUMP
  1027. 10250$:LIMITS:100,40K,-6K,5K
  1028. 10260$:FILE:D1,C9R          ES040XD1
  1029. 10270$:FILE:S1,,200R
  1030. 10280$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  1031. 10290$:PRMFL:D2,R,S,UMC/INV/ES530MD1
  1032. 10300$:PRMFL:D3,W,S,UMC/INV/ES710PD1
  1033. 10310$:PRMFL:D4,W,S,UMC/INV/ES710PD2
  1034. 10320$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1035. 10330$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1036. 10340$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1037. 10350$:PRMFL:P1,W,S,UMC/INV/P130
  1038. 10360$:END
  1039. 10370-------------------------------------------------------------------
  1040. 10380$::NOTE:EXECUTE ES715M
  1041. 10390$:LOWLOAD
  1042. 10400$:GMAP
  1043. 10410$:LIMITS:100,,,5K
  1044. 10420:600SM
  1045. 10430:SORT:FILEIN,,9
  1046. 10440:FIELD:(C8,C11,C4,C7,C10,C4,C10)
  1047. 10450:SEQ:(A1,A2,A4,D6),SETA
  1048. 10460:FILCB:FILEIN,**,2
  1049. 10470$:END
  1050. 10480$:EXECUTE
  1051. 10490$:LIMITS:100,,,5K
  1052. 10500$:FILE:S1,,200R
  1053. 10510$:FILE:SZ,D1S          ES610PD2
  1054. 10520$:PRMFL:SA,R,S,UMC/INV/ES610PD2
  1055. 10530$:END
  1056. 10540$:OPTION:CBL74
  1057. 10550$:SELECT:UMC/ES/OBJ/ES715M
  1058. 10560$:EXECUTE:DUMP
  1059. 10570$:LIMITS:100,40K,,5K
  1060. 10580$:FILE:D1,D1R          ES610PD2
  1061. 10590$:PRMFL:D2,W,S,UMC/INV/ES715MD1
  1062. 10600$:END
  1063. 10610-------------------------------------------------------------------
  1064. 10620$::NOTE:EXECUTE ES717M
  1065. 10630$:LOWLOAD
  1066. 10640$:GMAP
  1067. 10650$:LIMITS:100,,,5K
  1068. 10660:600SM
  1069. 10670:SORT:FILEIN,,9
  1070. 10680:FIELD:(C8,C4,C1,C7,C6,C3,C11,C4)
  1071. 10690:SEQ:(A1,A7,A4,D8),SETA
  1072. 10700:FILCB:FILEIN,**,2
  1073. 10710$:END
  1074. 10720$:EXECUTE
  1075. 10730$:LIMITS:100,,,5K
  1076. 10740$:FILE:S1,,200R
  1077. 10750$:FILE:SZ,D2S          ES560PD1
  1078. 10760$:PRMFL:SA,R,S,UMC/INV/ES560PD1
  1079. 10770$:END
  1080. 10780$:OPTION:CBL74
  1081. 10790$:SELECT:UMC/ES/OBJ/ES717M
  1082. 10800$:EXECUTE:DUMP
  1083. 10810$:LIMITS:100,40K,,5K
  1084. 10820$:FILE:D1,D2R          ES560PD1
  1085. 10830$:PRMFL:D2,W,S,UMC/INV/ES717MD1
  1086. 10840$:END
  1087. 10850-------------------------------------------------------------------
  1088. 10860$::NOTE:EXECUTE ES720M
  1089. 10870$:OPTION:CBL74
  1090. 10880$:SELECT:UMC/ES/OBJ/ES720M
  1091. 10890$:EXECUTE:DUMP
  1092. 10900$:LIMITS:100,40K,,5K
  1093. 10910$:FILE:D7,Z1R
  1094. 10920$:FILE:D8,Z2R
  1095. 10930$:FILE:D9,Z3R
  1096. 10940$:FILE:S1,,500R
  1097. 10950$:PRMFL:D1,R,S,UMC/INV/ES715MD1
  1098. 10960$:PRMFL:D2,R,S,UMC/INV/ES717MD1
  1099. 10970$:PRMFL:D3,R,S,UMC/INV/ES590MD1
  1100. 10980$:PRMFL:D4,R,S,UMC/INV/ES700PD1
  1101. 10990$:PRMFL:D5,R,S,UMC/INV/ES710PD1
  1102. 11000$:PRMFL:D6,W,S,UMC/INV/ES720MD1
  1103. 11010$:END
  1104. 11020-------------------------------------------------------------------
  1105. 11030$::NOTE:EXECUTE ES730P
  1106. 11040$:OPTION:CBL74
  1107. 11050$:LIBRARY:L1
  1108. 11060$:SELECT:UMC/ES/OBJ/ES730P
  1109. 11070$:EXECUTE:DUMP
  1110. 11080$:LIMITS:100,40K,-6K,5K
  1111. 11090$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  1112. 11100$:PRMFL:D1,R,S,UMC/INV/ES720MD1
  1113. 11110$:PRMFL:D2,W,S,UMC/INV/ES730PD1
  1114. 11120$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1115. 11130$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1116. 11140$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1117. 11150$:PRMFL:P1,W,S,UMC/INV/P140
  1118. 11160$:END
  1119. 11170-------------------------------------------------------------------
  1120. 11180$::NOTE:EXECUTE ES800P
  1121. 11190$:OPTION:CBL74
  1122. 11200$:LIBRARY:L1
  1123. 11210$:SELECT:UMC/ES/OBJ/ES800P
  1124. 11220$:EXECUTE:DUMP
  1125. 11230$:LIMITS:100,40K,-6K,5K
  1126. 11240$:FILE:S1,,100R
  1127. 11250$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  1128. 11260$:PRMFL:D1,R,S,UMC/INV/ES420ED1
  1129. 11270$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1130. 11280$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1131. 11290$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1132. 11300$:PRMFL:P1,W,S,UMC/INV/P180
  1133. 11310$:END
  1134. 11320-------------------------------------------------------------------
  1135. 11330$::NOTE:EXECUTE ES910U
  1136. 11340$:OPTION:CBL74
  1137. 11350$:LIBRARY:L1
  1138. 11360$:SELECT:UMC/ES/OBJ/ES910U
  1139. 11370$:EXECUTE:DUMP
  1140. 11380#YES      (PARAMETER TO INDICATE IF RENUMBERING IS REQUIRED)
  1141. 11390$:LIMITS:5,40K,,5K
  1142. 11400$:FILE:S1,,100R
  1143. 11410$:PRMFL:D1,W,S,UMC/INV/ES910UD1
  1144. 11420$:PRMFL:I1,R,S,UMC/INV/VI NEW
  1145. 11430$:PRMFL:I2,R,S,UMC/INV/ES910UI1
  1146. 11440$:END
  1147. 11450-------------------------------------------------------------------
  1148. 11460$::NOTE:EXECUTE ES915P
  1149. 11470$:OPTION:CBL74
  1150. 11480$:LIBRARY:L1
  1151. 11490$:SELECT:UMC/ES/OBJ/ES915P
  1152. 11500$:EXECUTE:DUMP
  1153. 11510#INV      (PARAMETER INDICATING INVENTORY CODE)
  1154. 11520$:LIMITS:5,40K,-6K,5K
  1155. 11530$:FILE:S1,,100R
  1156. 11540$:PRMFL:I1,R,S,UMC/INV/ES910UD1
  1157. 11550$:PRMFL:P1,W,S,UMC/INV/ES915PP1  DELETE IF USING SYSOUT
  1158. 11560$:SYSOUT:P1,ORG                   DELETE IF USING PRMFL
  1159. 11570$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  1160. 11580$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1161. 11590$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1162. 11600$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1163. 11610$:END
  1164. 11620-------------------------------------------------------------------
  1165. 11630$::NOTE:EXECUTE ES920E
  1166. 11640$:OPTION:CBL74
  1167. 11650$:LIBRARY:L1
  1168. 11660$:SELECT:UMC/ES/OBJ/ES920E
  1169. 11670$:EXECUTE:DUMP
  1170. 11680$:LIMITS:04,50K,-6K,5K
  1171. 11690$:PRMFL:D1,W,S,UMC/INV/ES920ED1
  1172. 11700$:PRMFL:I1,R,S,UMC/INV/ES910UD1
  1173. 11710$:SYSOUT:P1,ORG
  1174. 11720$:PRMFL:1*,R/C,R,DBACS/OBJECT/BLMDIC
  1175. 11730$:PRMFL:DE,R/C,R,DBA/DED/DIC-DE
  1176. 11740$:PRMFL:KE,R/C,R,DBA/DED/DIC-KE
  1177. 11750$:PRMFL:L1,R/C,S,DBACS/CSTAR/CODVAL2
  1178. 11760$:ENDJOB
  1179.